home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / EXTERN / MODUTIL2.I < prev    next >
Encoding:
Text File  |  1989-07-06  |  1.3 KB  |  3 lines
  1. ⓪ IMPLEMENTATION MODULE ModUtil2;⓪ (*$M-*)⓪ ⓪ FROM ModBase IMPORT ModRef;⓪ ⓪ FROM Terminal IMPORT WriteString, WriteLn, Read;⓪ ⓪ VAR ch: CHAR;⓪ ⓪ PROCEDURE call (module: ModRef);⓪"BEGIN⓪$WriteLn;⓪$WriteString ('Call ');⓪$WriteString (module^.codeName^);⓪$Read (ch)⓪"END call;⓪ ⓪ PROCEDURE leave (module: ModRef);⓪"BEGIN⓪$WriteLn;⓪$WriteString ('Leave ');⓪$WriteString (module^.codeName^);⓪$Read (ch)⓪"END leave;⓪ ⓪ PROCEDURE deinit (module: ModRef);⓪"BEGIN⓪$WriteLn;⓪$WriteString ('De-Init ');⓪$WriteString (module^.codeName^);⓪$Read (ch)⓪"END deinit;⓪ ⓪ BEGIN⓪"CallBody:= call;⓪"LeaveBody:= leave;⓪"DeInit:= deinit⓪ END ModUtil2.⓪ ə
  2. (* $FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$0000008B$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9FÇ$00000238T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000057$00000095$00000057$00000095$00000116$000000D1$00000116$000000C6$000001A5$0000016D$00000154$00000238$00000205$000001AC$000001C3$00000240œÇé*)
  3.